home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / easytp / easytp32.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-21  |  1.9 KB  |  60 lines
  1. VERSION 4.00
  2. Begin VB.Form frmEasyTip 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   1  'Fixed Single
  6.    ClientHeight    =   690
  7.    ClientLeft      =   5430
  8.    ClientTop       =   3015
  9.    ClientWidth     =   2580
  10.    ControlBox      =   0   'False
  11.    Height          =   1095
  12.    Left            =   5370
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   690
  17.    ScaleWidth      =   2580
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   2670
  20.    Width           =   2700
  21.    Begin VB.Timer tmrShow 
  22.       Interval        =   1000
  23.       Left            =   2040
  24.       Top             =   120
  25.    End
  26.    Begin VB.Label lblEasyTip 
  27.       AutoSize        =   -1  'True
  28.       BackStyle       =   0  'Transparent
  29.       Caption         =   "Do not modify this form."
  30.       Height          =   195
  31.       Left            =   240
  32.       TabIndex        =   0
  33.       Top             =   240
  34.       Width           =   1650
  35.    End
  36. Attribute VB_Name = "frmEasyTip"
  37. Attribute VB_Creatable = False
  38. Attribute VB_Exposed = False
  39. Option Explicit
  40. Dim moEasyTip As New EasyTip
  41. Private Sub Form_Load()
  42.    On Error Resume Next
  43.    'To create EasyTips with custom colors
  44.    'instate the two lines below by uncommenting them.
  45.    'moEasyTip.ForeColor = QBColor(15)
  46.    'moEasyTip.BackColor = QBColor(7)
  47.    'Once the EasyTip is diplayed, if the mouse pointer is left in the
  48.    'same position for 5 seconds, the EasyTip will be removed.
  49.    'To change the number of seconds, uncomment the following line.
  50.    'moEasyTip.SecondsToHide = 5
  51. End Sub
  52. Private Sub Form_Unload(Cancel As Integer)
  53.    On Error Resume Next
  54.    Set moEasyTip = Nothing
  55. End Sub
  56. Private Sub tmrShow_Timer()
  57.    On Error Resume Next
  58.    moEasyTip.Show Forms, Me
  59. End Sub
  60.